generateInternalScoresList <-function(){
	scoresList <- list()
	scoresList[["IScore"]]		<- new("IIClusterScore")
	scoresList[["SilhScore"]]	<- new("SilhIClusterScore")
	scoresList[["stdbw"]]		<- new("StdbwIClusterScore")
	return(scoresList)
}